home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / openfun.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  1.0 KB  |  35 lines
  1. /*
  2.                                 O P E N F U N . C
  3. */
  4.  
  5. #include "iccomp.h"
  6.  
  7. void open_fun()
  8. {
  9.     register unsigned
  10.         index,
  11.         last;
  12.  
  13.     entertab = &funtab;                     /* store a function */
  14.     enter();                                /* enter its name */
  15.  
  16.                                             /* set proper function type */
  17.     funtab.symbol[funtab.n_defined - 1].var.type |= e_reg;
  18.     funtab.symbol[funtab.n_defined - 1].var.vu.i =
  19.                           xrealloc(NULL, sizeof(INTER_));
  20.  
  21.     for                                     /* free former local names */
  22.     (
  23.         index = 0,
  24.         last = local.n_defined;
  25.             index < last;
  26.                 index++
  27.     )
  28.         free(local.symbol[index].name);
  29.  
  30.     local.n_defined = 0;                    /* no symbols defined as yet */
  31.     entertab = &local;                      /* next table to enter: local */
  32.     n_params = 0;                           /* no parameters as yet */
  33.     dead_sp = 0;                            /* allow code generation */
  34.     dead[0] = 0;
  35. }